From 42dbaa08d8dd56ca8e9cc62743b656fd96a2a8d1 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Fri, 18 May 2001 12:47:43 +0000 Subject: [PATCH] (goto-address-at-point): Deal with URLs part of which look like email addresses. --- lisp/net/goto-addr.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/net/goto-addr.el b/lisp/net/goto-addr.el index 986489bdd62..bb75508935f 100644 --- a/lisp/net/goto-addr.el +++ b/lisp/net/goto-addr.el @@ -201,7 +201,12 @@ there, then load the URL at or before point." (interactive) (save-excursion (let ((address (save-excursion (goto-address-find-address-at-point)))) - (if address + (if (and address + (save-excursion + (goto-char (previous-single-char-property-change + (point) 'goto-address nil + (line-beginning-position))) + (not (looking-at goto-address-url-regexp)))) (compose-mail address) (let ((url (browse-url-url-at-point))) (if url -- 2.30.2